home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / vis082s.arc / SOUND.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-18  |  415 b   |  23 lines
  1. Program Sound_Test;
  2. Uses Crt;
  3. Var Frequency:Integer;
  4.     tone:Integer;
  5. Begin
  6.   While Not Keypressed Do Begin
  7.     TextAttr:=9;
  8.     Write('Whoop');
  9.     Textattr:=10;
  10.     Write('...');
  11.     For Frequency:=3000 to 20 Do
  12.     Begin
  13.       Delay(1);
  14.       Sound(Frequency);
  15.     End;
  16.     For Tone:=1000 to 200 do Begin
  17.       Delay(1);
  18.       Sound(Tone);
  19.       End;
  20.     Delay(100);
  21.   End;
  22.   NoSound;
  23. End.